home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 024 - Big U Macroworks.dsk / HELP.UPDATE.bas < prev    next >
BASIC Source File  |  2019-02-16  |  7KB  |  84 lines
  1. 2  REM <CTRL-M><CTRL-M>********************<CTRL-M>*                  *<CTRL-M>*    HELP.UPDATE   *<CTRL-M>*                  *<CTRL-M>*  COPYRIGHT 1986, *<CTRL-M>*  BY RANDY BRANDT *<CTRL-M>*                  *<CTRL-M>********************<CTRL-M>
  2. 5  LOMEM: 20480
  3. 6  ONERR  GOTO 10000
  4. 10 DS = 6:DN = 1:SD = 48700:AS =  PEEK(SD):AD =  PEEK(SD +1)
  5. 11 SG$(0,0,0) = "MN":SG$(0,0,1) = "B$D2D9,L$38E":SG$(0,1,0) = "MN":SG$(0,1,1) = "B$304E,L$357":SG$(0,2,0) = "MN":SG$(0,2,1) = "B$14044,L$378"
  6. 12 SG$(1,0,0) = "M1":SG$(1,0,1) = "B$7A51,L$38E":SG$(1,1,0) = "M0":SG$(1,1,1) = "B$3033,L$357":SG$(1,2,0) = "M1":SG$(1,2,1) = "B$E80C,L$378"
  7. 13 SG$(2,0,0) = "M1":SG$(2,0,1) = "B$7B1D,L$38E":SG$(2,1,0) = "M0":SG$(2,1,1) = "B$3056,L$357":SG$(2,2,0) = "M1":SG$(2,2,1) = "B$E8F9,L$378"
  8. 14 D$ =  CHR$(4):Q$ =  CHR$(34):CL =  -868:CS =  -958: DIM D$(3),M$(2): DIM LI$(27):KR = 49168:BL = 48855:HE = 11520:H = 9:V = 6:C = 25:C8 = 1403:AW$ = "AppleWorks"
  9. 15  POKE 48891, PEEK(116):A1 =  PEEK(1014):A2 =  PEEK(1015): FOR I = 0 TO 9: READ A: POKE 12144 +I,A: NEXT : DATA  104,168,104,166,223,154,72,152,72,96
  10. 16  DIM QO(2),Q$(2):Q(0) = 6:Q$(0) = "M":Q(1) = 25:Q$(1) = "A":Q(2) = 47:Q$(2) = "Esc"
  11. 20  PRINT D$"-MENUS"
  12. 40  PRINT D$"PREFIX": INPUT PFX$:OP$ = "/": FOR I = 2 TO  LEN(PF$) -1: IF  MID$ (PF$,I,1) = "/"  THEN OP$ = PF$: GOTO 50
  13. 45  NEXT 
  14. 50 ITEMS = 2: DIM A$(IT): FOR I = 0 TO ITEMS: READ A$(I): NEXT : FOR I = 0 TO 2: READ M$(I): NEXT : FOR I = 0 TO 3: READ D$(I): NEXT 
  15. 55  PRINT D$"PR#3"
  16. 60  VTAB 1: PRINT : VTAB 1: PRINT "MacroWorks";: CALL CL: HTAB 32: PRINT "  UPDATE MENU";: POKE C8,67: PRINT "Help.Update": & RPT,223,79
  17. 80  VTAB 22: PRINT : & RPT,223,79: GOSUB 9950
  18. 85  & BOX,M$(0),4,3,13: CALL CL: PRINT : CALL CL: PRINT : CALL CL: PRINT : CALL CL
  19. 100  & MENU,A$(0),IT,1,H,V +3,C
  20. 110 X =  PEEK(0): IF X < >IT +1  THEN 170
  21. 115 QO = 2
  22. 120  VTAB 23: PRINT : PRINT "Press  M  for Main.Menu,  A  for Applesoft, or  Esc  to continue";: CALL CL: POKE C8,Q(QO): INVERSE : PRINT " "Q$(QO)" ";: NORMAL 
  23. 122  & KEY,33,24:X =  PEEK(0): IF X = 27  OR (X = 13  AND QO = 2)  THEN  GOSUB 9950: GOTO 100
  24. 130  IF X = 77  OR X = 109  OR (X = 13  AND QO = 0)  THEN X = 77: GOTO 150
  25. 135  IF X = 65  OR X = 97  OR (X = 13  AND QO = 1)  THEN X = 65: GOTO 150
  26. 140  IF   NOT (X = 8  OR X = 21)  THEN  & BEEP: GOTO 122
  27. 142  IF X = 8  THEN QO = QO -1: IF QO =  -1  THEN QO = 2
  28. 144  IF X = 21  THEN QO = QO +1: IF QO = 3  THEN QO = 0
  29. 145  GOTO 120
  30. 150  GOSUB 9800
  31. 155  IF X = 77  THEN  PRINT D$"-MAIN.MENU"
  32. 160  HOME : PRINT  CHR$(21): PRINT : PRINT "TYPE "Q$"RUN"Q$" TO RESTART.": END 
  33. 170  ON X GOTO 6000,400: & BEEP: GOTO 100
  34. 400  & BOX,A$(1),7,5,12
  35. 4000  VTAB 1: HTAB 32: PRINT "PROGRAM EXPLANATION";: CALL CL: POKE C8,59: PRINT "Escape: Update Menu"
  36. 4010  VTAB 10: HTAB 13: PRINT "This program updates your "AW$" word processor"
  37. 4030  HTAB 13: PRINT "help screen to show the MacroWorks commands which are"
  38. 4040  HTAB 13: PRINT "included with MACRO.SYSTEM. If you change some of the"
  39. 4050  HTAB 13: PRINT "commands, you can use the MAIN.MENU program to update"
  40. 4060  HTAB 13: PRINT "the "AW$" help screen to reflect your new commands."
  41. 4100  VTAB 23: PRINT : PRINT "Press Return for the Update Menu";: CALL CL: & KEY,17,24: GOTO 60
  42. 6000  VTAB 1: HTAB 32: PRINT "  UPDATE AWP HELP";: CALL CL: POKE C8,59: PRINT "Escape: Update Menu"
  43. 6100  & BOX,M$(2),7,5,12
  44. 6200  PRINT D$"BLOAD HELP.AWP,A$4500": VTAB 23: PRINT : PRINT "Insert the "AW$" PROGRAM disk; press Return";: & KEY,25,24
  45. 7000  & BOX,M$(1),10,7,11: VTAB 9: PRINT : HTAB 16: PRINT "Where is the "AW$" PROGRAM disk?": HTAB 16: PRINT "Select (1) when 'Current Directory' is correct.": GOSUB 9000: IF X = 27  THEN 60
  46. 7010  & BOX,M$(1),10,7,11: GOSUB 9950
  47. 7020 PL = 16384:VN = 0: PRINT D$"VERIFY SEG.MN": GOTO 8000
  48. 7030 VN = 1: PRINT D$"BLOAD SEG.M1,A$4000,B$36,L2,T0": IF  PEEK(PL) = 24  AND  PEEK(PL +1) = 123  THEN VN = 2
  49. 8000  PRINT D$"UNLOCK SEG."SG$(VN,0,0): PRINT D$"BSAVE SEG."SG$(VN,0,0)",T0,A$4500,"SG$(VN,0,1): VTAB 23: PRINT : PRINT "AWP help screen updated; press a key";: CALL CL: & KEY,19,24: GOTO 60
  50. 9000  PRINT D$"FRE":Y$ = PF$: GOSUB 9950: VTAB 12: PRINT : POKE C8,39: PRINT PFX$;: PRINT  SPC( 30 - LEN(PF$))
  51. 9030  & MENU,D$(0),3,1,15,13,25:X =  PEEK(0): IF X = 27  THEN  RETURN 
  52. 9040  ON X GOTO 9190,9180,9050,9170: & BEEP: GOTO 9030
  53. 9050  VTAB 14: PRINT : HTAB 24: INVERSE : PRINT " "DS" ";: NORMAL : PRINT : GOSUB 9975
  54. 9060  & KEY,32,24:X =  PEEK(0): IF X = 27  THEN  GOSUB 9950: GOTO 9030
  55. 9070  IF X = 10  THEN DS = DS -1: IF DS = 0  THEN DS = 7
  56. 9080  IF X = 11  THEN DS = DS +1: IF DS = 8  THEN DS = 1
  57. 9085  IF X >48  AND X <56  THEN DS = X -48:X = 13
  58. 9090  IF X = 13  THEN D$(1) = "Slot " + STR$(DS) +" Drive " + STR$(DN): VTAB 14: PRINT : HTAB 20: PRINT D$(1)" ";: GOTO 9120
  59. 9100  IF X = 10  OR X = 11  THEN 9050
  60. 9110  & BEEP: GOTO 9060
  61. 9120  VTAB 14: PRINT : HTAB 32: INVERSE : PRINT " "DN" ";: NORMAL : PRINT 
  62. 9130  & KEY,32,24:X =  PEEK(0): IF X = 27  THEN  VTAB 14: PRINT : HTAB 20: PRINT D$(1)" ";: GOTO 9050
  63. 9140  IF X = 10  OR X = 11  THEN DN = 3 -DN: GOTO 9120
  64. 9145  IF X >48  AND X <51  THEN DN = X -48:X = 13
  65. 9150  IF X = 13  THEN  GOSUB 9950:D$(1) = "Slot " + STR$(DS) +" Drive " + STR$(DN): VTAB 14: PRINT : HTAB 20: PRINT D$(1)" ";: GOTO 9180
  66. 9160  & BEEP: GOTO 9130
  67. 9170  VTAB 23: PRINT : PRINT "Type new pathname: /";: CALL CL: &  INPUT X$: ON X$ = "" GOTO 9000:PFX$ = "/" +X$ +"/": PRINT D$"PREFIX"PF$: GOTO 9000
  68. 9180  VTAB 22: PRINT D$"PREFIX,S"DS",D"DN: PRINT D$"PREFIX": INPUT PFX$: GOTO 9000
  69. 9190  RETURN 
  70. 9800  POKE 1014,A1: POKE 1015,A2: CALL 48888: POKE SD,AS: POKE SD +1,AD: PRINT D$"PREFIX/": IF OP$ < >"/"  THEN  PRINT D$"PREFIX"OP$
  71. 9805  RETURN 
  72. 9950  VTAB 23: PRINT : PRINT "Type number or use arrow keys, then press Return           See Manual for Help";: RETURN 
  73. 9975  VTAB 23: PRINT : PRINT "Use up/down arrow keys to change value; press Return when done";: CALL CL: RETURN 
  74. 10000 ER =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219): CALL 12144
  75. 10010  IF EL = 20  THEN  PRINT "<CTRL-G>The file MENUS must be on the disk": END 
  76. 10040  IF EL = 6200  THEN  & BEEP: VTAB 23: PRINT : PRINT "Unable to load HELP.AWP; insert the MacroWorks disk and press a key";: CALL CL: & KEY,35,24: GOTO 60
  77. 10050  IF EL = 155  THEN  VTAB 23: PRINT : PRINT "Insert the MacroWorks disk and press Return ";: CALL CL: GET X$:X = 77: ON X$ < > CHR$(27) GOTO 155: RUN 
  78. 10070  IF EL = 7030  THEN  & BEEP: VTAB 23: PRINT : PRINT "Insert the "AW$" PROGRAM disk now and press a key";: CALL CL: & KEY,28,24: GOTO 7000: GOTO 7030
  79. 10080  IF EL = 7020  THEN 7030: GOTO 7020
  80. 10090  IF EL = 9170  OR EL = 9180  THEN  & BEEP: VTAB 23: PRINT : PRINT "Unable to find directory; press Return";: CALL CL: & KEY,20,24:PF$ = Y$: GOTO 9000: GOTO 9180
  81. 11000  POKE 216,0: RESUME 
  82. 15000  DATA  "Install MacroWorks Help Screen","Program Explanation","Quit" : REM  A$(2)
  83. 15200  DATA  "Update Menu","Update AWP Help","Load HELP.AWP" : REM  M$(1)
  84. 15300  DATA  "Current Directory:","Slot 6 Drive 1","Another Slot and Drive","Another Pathname": REM  D$(3)